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AddSAM 


Introduction 


This solution shown is one example only. It is important to read the guidance with each activity. 
No assumption is made that a method that differs from the solution shown is incorrect. 


Activity 6 Forms 


Create an efficient interface that will facilitate database input by producing: 


(i).an input form to add a supplier. 
e The form should be ready for data entry. 


e The supplier’s name, telephone number and number of days for delivery must be 
present. 


e The number of days for delivery must be within the specified range. 
e Valid data should be appended to the supplier table and a save message displayed. 
A suitable error message should appear where invalid data has been used. 


Example 1 Supplier Form 


=s] AddaSupplier 


Add a Supplier 


Input the supplier name, telephone number and - Adda Supplier 


the number of days for delivery. 


‘ ' , nput the supplier name, telephone number and 
Click Save to save the details of the new supplier. : . 


( New) 


Supplier name | 


SupplierID 


Telephone number 


Supplier 
Nu nber davs for delivery 1 to 5 days oni : ; _ a 
7 i all , to Tel e number SupplierTelephoneNumber 


Number days for delivery DeliveryDays 


nes | TI |i to 5 days only 


Form Private Sub cmdSave_ Click() 
If IsNull (Supplier) Then 
Format Data Event Other All MsgBox "You must enter a supplier name", vbOKOnly 
ElseIf IsNull (SupplierTelephoneNumber) Then 
Record Source tblSuppli a 
Recordset Type a MsgBox "You must enter the supplier telephone number", vbOKOnly 
Fetch Def = =a ElseIf IsNull(DeliveryDays) Or DeliveryDays < 1 Or DeliveryDays > 5 Then 
a os ss MsgBox "The delivery days must be from 1 to 5 days", vbOKOnly 
ilter 


Filter O d N - 
ilter On Loa o DoCmd. Save 
Order By 


; DoCmd.GoToRecord , , acNewRec 
Order By On Load Yes MsgBox "The supplier details have been saved", vbOKOnly 
Wait for Post Processing No 


; End If 
Data Entry Yes End Sub 
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Example 2 Supplier Form 


=] frmSupplier 
sbedeneae 


Add a Supplier € Form Header 


Input the supplier name, telephone number and : Add a Supplier 
the number of days for delivery. 
Click Save to save the details of the new supplier. 


Input the supplier name, telephone number and 
the number of days for delivery. 
Click Save to save the details of the new supplier. 


Supplier ID | (New) exes 
etal 


Supplier name | 


er ID SupplierID 


Telephone number + : 
| Supplier name |Supplier 


———— fe] 


Number days for delivery | 1 to 5 days only 


Telephone number SupplierTelephoneNumber 
a | 


Number days for delivery DeliveryDays 


| 1 to 5 days only 
Save 


(2 frmSupplier_example2 : cmdSave : On Click 


DeliveryDays 


© If IsNull((Supplier]) Then 


Data 
MessageBox Format Event Other All 


Message You must enter a supplier name Control Source DeliveryDays 
Text Format Plain Text 
Input Mask 
Type None Default Value 1 
Validation Rule Between 1 And5 
Validation Text The number of days must be between 1 and 5 
Filter Lookup Database Default 
Enabled Yes 
MessageBox Locked No 
Message You must enter a telephone number 


Beep Yes 


Title 


© Else lf IsNull([suppliertelephonenumber]) Then 


Beep Yes 
Type None 
Title 


Else If IsNull((DeliveryDays]) Then 


MessageBox 
Message You must enter the number of days for delivery 


Beep Yes 
Type None 
Title 


= Else 
RunMenuCommand 


Command SaveRecord 


MessageBox 


Message The supplier details have been saved 
Beep Yes 
Type None 
Title 


GoToRecord 
Object Type 


Object Name 
Record 
Offset 

End If 


+ | Add New Action 
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Example 1 Delivery Form 


(ii). input form to add product deliveries. 


The form should not include validation for any fields. 
The form should not include an automated routine to save the data. 
The user should be able to select the product and input the number that has 
been delivered. 
These details should then be displayed: 

o the cost price for the product 

o the selling price for the product 

o the current number in stock. 
These details should then be calculated and displayed: 

o the new number in stock 

o the overall cost for the products 

o the overall sales value. 


=s] Adda Delivery » 


Adda Delivery This example uses an unbound form. 


and then enter the number that hav The control source of the product combo box is 
en deliverec these fields from the product table: ProductID, 
ProductDescription, CostPrice, SellingPrice, 
NumberInStock. All but the description has been 
hidden in the combo. 
The fields for Cost Price, Selling Price and 
Current Stock have been set to the relevant 
hidden column in the combo box. 


Calculations have been added. 


3| frmDelivery » 
Pepe be Berge Seeger Bere Bebe Pere Bere Ge pee ree rewecewye ry 
Form Header 
Add a Delivery 
oduct and then enter the number that have 


een deliverec 


Unbound 


elivered| |Inboun ial 


urrency([cboProduct].[column](2),2) 
urrency([cboProduct].[column](3),2) 


=[cboProduct].[column](4) 


=[NumberinStock]+[numDelivered] 
=FormatCurre pdatedstock]*[Co 


=FormatCurrency([updatedstock] *[sellingprice],2 
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Example 2 Delivery Form 


Ea] Add a Delivery x This example uses a bound form and a combo box 
Adda Delivery drawn using the wizard to find a product. 


The automatically generated macro has been 
coe ere shown at the bottom of the page. 


Calculations were added. 


Select the Product 


Enter number delivered 


£12.00 


£272.00 


hades hae gens 
Form Header 


Add a Delivery 


Select the product and then enter the number that have 


been delivered. 


Detail 


Select the Product 


Unbound 


Enter number delivered] |Inboun 


P : ?roductiL 


$$ ___ 
CostPrice ate k [NumberinStock]+[numDelivered 


ellingPric) [Overall | t tf =[costPrice]*[numDelivered] 
nberinSt 2rall sales value fCurrency([updatedstock]*[selling 


[J frmDelivery_example2 : cboFindProduct: After Update X |_| 


El SearchForRecord 
Object Type 


Object Name 
Record First 
Where Condition =="[ProductiD] = " & Str(Nz([Screen].[ActiveControl],0)) 


* | Add New Action v 
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Activity 7 - Testing 


Screenprints may be on the small side here. Learners can put the screenshots after the table or use A3. 


record. 
Number days for delivery 
to default to 1 


<3] Add a Supplier 


Add a Supplier 


Test | type | Add suitable test data Add the results you Add screenprint(s) of the results of this test carried out on your database. | Only complete this column if the 
No | test would expect to get Ensure you show the test data used in the screenprint(s) results are not as expected 
from a fully working 
system e Explain the error 
If you correct the error explain 
how you have done it including 
a screenprint 
1 N Open form Form to open at a new 
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2 X SupplierID: Autonumber Error message to be "| Add a Supplier 
Supplier: CVS displayed saying 
SupplierlelephoneNumber: 
020 11111111 
daysDelivery: 6 


Add a Supplier 


02011111111 |* 


Microsoft Access 


The delivery days must be from 1 to 5 days 


3 X SupplierID: Autonumber Error message to be “> Add a Supplier 
Supplier: CVS displayed saying 
SupplierlelephoneNumber: 
020 11111111 jut the supplier name, telephone number and 
DaysDelivery: 0 pips eshe —— 


Add a Supplier 


02011111111 |* 


Microsoft Access 


The delivery days must be from 1 to 5 days 
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4 N SupplierlD: Autonumber 
Supplier: CVS 
SupplierfelephoneNumber: 
020 11111111 
daysDelivery: 2 


Add a Supplier 
SupplierID ~1 
5 Original Keepsakes 
4 Custom Candy Rock 
3 Animals For You 


+ SupplierfelephoneNumber + DeliveryDay~ C 
020 79460856 
020 79460141 
020 79460703 


2 Animal Kingdom Keepsakes 020 79460940 


1 Notin Town 
(New) 


Add a Supplier > | 


020 79460194 


Adda Supplier 


Input the supplier name, telephone number and 


or delivery. 


Click Save t 


15 


Supplier name cvs 


e the details of the new supplier. 


Telephone number 02011111111 |+* 


Number days for delivery P| 


Save 
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"| Adda Supplier < 


Add a Supplier 


(New) 
Supplier name 
Telephone number + 


Number days for delivery sk * 1to5dayson 


Save 


Microsoft Access x 


The supplier details have been saved 


Esl AddaSupplier > “j tbiSupplier >< | 
Supplier » SuppliertelephoneNumber ~ DeliveryDay ~ C 
cvs 020 11111111 
5 Original Keepsakes 020 79460856 
4 Custom Candy Rock 020 79460141 
3 Animals For You 020 79460703 
2 Animal Kingdom Keepsakes 020 79460940 
1 Not in Town 020 79460194 
(New) 


5&6 | N Product: Junior Socks 
Number Delivered: 10 


Cost Price: £1.50 
Selling Price: £2.00 
Current Stock: 20 
Updated Stock: 30 
Overall product 
£45.00 

Overall sales 
£60.00 


cost: 


value: 


=s] Adda Delivery > | 


Add a Delivery 


Select the product 


Junior Socks 


Enter number delivered 


21 


£31.50 


£42.00 


Activity 4 - Interface and Functionality Testing - AddSAM 


10|Page 


Activity 8 -— Evaluation 


No evaluation example included as these can end up becoming the ‘only way’ 
candidates evidence this activity. 
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